;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
(DEFUN c:ohsnap ()
  (PRINC "\nOSMODE was ")
  (PRINC (getvar"osmode"))
  (PRINC "; ")
  (PRINC "AUTOSNAP was ")
  (PRINC (GETVAR"autosnap"))
  (SETQ my-t-leader "0")
  (SETQ t-leader "0")
  (PRINC (STRCAT "\nOSMODE = " (ITOA (SETVAR "osmode" 1285))"; AUTOSNAP = " (ITOA (SETVAR "autosnap" 7))))
  (PRINC)
)